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NEW, DISPOSE, MARK and RELEASE procedures 1o~se0~ 130% 01:40:07 AX-11 Bliss- 
14-Sep-1984 12:51:33 PASRTL.SRCJP 
MODULE PASSHEAP ( Z%TITLE NEY DISPOSE, MARK and RELEASE peoseevrss 3 
IDENT = '1= 02" ! File: PASHEAP.B32 Edit: SBL1002 


BEGIN 


Lee RAAT AAR 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* Compokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
-* . 


is DIGITAL ASSUMES NO RESPONS 


BILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS 


I 
H NOT SUPPLIED BY DIGITAL. 


® 
* 
® 
® 
® 
® 
® 
® 
® 
® 
® 
* 
® 
® 
® 
*® 
® 
® 
® 
*® 
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FACILITY: Pascal Language Support 

ABSTRACT: 
This module contains the procedures which implement VAX-11 Pascal 
ws SpOse MAR and RELEASE Ee names for these procedures 

ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 8-June-1981 

MODIFIED BY: 

1-001 = Origin SBL 8-June-1981 


al. 
1-002 - Add DISPOSE_HANDLER to turn ACCVIOs during DISPOSEs into ERRDURDIS. 
SBL 12-July=-1982 
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PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 18-Sep-1984 94:40:07 AX-1 
1- 14-Sep-1984 12:51:33 


1 Bliss-32 V4.0-742 p 
Declarations PASRTL.SRCI — 


PASHEAP.B32;1 
SSBTTL ‘Declarations’ 
PROLOGUE DEFINITIONS 


WINNT 


REQUIRE 'RTLIN:PASPROLOG'; 


Externals, linkages, PSECTs, structures 
4 


. TABLE OF CONTENTS: 


PAEAAASSMMAMNMAYIVIVIVIW 
EWN" OODDNOULS WN 


(for validity check) 
TES; 


. OWN STORAGE: 


SARALSLS SELES 


; 0050 1 

: 0051 1 

: 00 ¢ 1 

; 00 1 

; 0054 1 

; 0055 1 

: 0119 1 

: bis 1 

: 0121 1 

: 01 ¢ 1 

3 01 1 

; 0124 1 FORWARD ROUTINE 

3 0125 1 PASS . ' Allocate new storage 

: 0126 1 PASSDISPOSE2: NOVALUE, ! Free a single item ; 
: 5 0127 1 PASSMARK2, ! Mark place on allocated list 
> 66 0128 1 PASSRELEASE2: NOVALUE, ! Free all allocated since mark 
; of ah 1 INITIALIZE QUEUE: NOVALUE, ! Initialize the queue 

; & 0130 1 DISPOSE_HANDLER; ! Error handler for DISPOSE 
; & 0131 1 

; 0132 1! 

ca 0133 1 ! MACROS: 

; 72 0134 1! 

; 0135 1! NONE 

; 674 0136 1! 

; 75 0137 1 ! EQUATED SYMBOLS: 

5. 0138 1! 

‘ee eg 0139 1 

; 0140 1 LITERAL ; ; 

ee sy, 0141 1 PAS$K_HEAP_HDRSIZ = 8; ! Size of item header info (unmarked) 
; 80 Sb 1 

; 0145 1! 

; 82 0144 1 ! FIELDS: 

: & 0145 1! 

; «6884 0146 1 

3; «685 0147 1 !+ eo 

; 0148 1°! Fields in item header 

;. «687 0149 1 !- 

; «688 0150 1 

; 0151 1 FIELD 

; 90 0152 1 PASSHEAP_FIELDS = 

; 0153 (1 SET 

: = 0154 1 : 

; 93 0155 1 PAS$Q_HEAP_QLINK = ([-16,0,32,0], ! Link in double-Linked queue 
> 9 0156 1 PASSQ-HEAP-HDR = 8.6.0 04 i Offset of non-marked header 
> 0157 1 PASSL-HEAP“SIZE = (-8,0,3¢,0), ! Size of allocated storage 
5 0158 1 PAS$SW_HEAP_FLAGS = (-4,0,16,0], ' Status flags 

3 0159 1 PASSV_HEAP DEALL_ = -4,0,1,0), ' Item has been deallocated 
; 0160 1 PASSV_HEAP_MARKER = (-4,1,1,0], ! Item is a marker 

;: 0161 1 PAS$SV_HEAP_MARKED = [~4,2 1,0] ! Item is on marked queue 

3 Bes ! PASSW_ADDR_CHECK = £=4,16,16,0) Low word of item address 

; 0164 1 

: 0165 1 

; 9166 1 

; 0167 1 

; 0168 1 

: 0169 1 


+a — — — _s -s - 
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Se ld NEW EE ey MARK and RELEASE procedures 15-Sep-1984 9 


740: AX-11 Bliss-32 V4.0-742 P 4 
PAS$NEW2 = Allocate new heap storage item 14-Sep-1984 3:9 ies 


1 
2: PASRTL.SRC JPASHEAP .B32; 1 (3) 


: 117 gi78 1 ZSBTTL ‘PASSNEW2 - = uaa new heap storage item’ 

s 118 179 1 GLOBAL ROUTINE PASS$NEW2( ' Allocate new heap storage item 
: 119 0180 1 SIZE ! Item size in bytes 

; 120 0181 1 = 

; Ve pigs 1 

3 3 ¢ 0185 1 !++ 

3 ! ? pie : FUNCTIONAL DESCRIPTION: 

3 125 0186 1! This procedure iuplenents the Pascal NEW function. It allocates 
: 126 0187 1! heap storage of the specified size and returns a pointer to that 
s ler 0188 #1! storage to the caller. 

; 128 0189 1! 

: 4 0190 1 ! CALLING SEQUENCE: 

; i7 0191 1! 

: 131 8136 1! pointer.wa.v = PAS$NEW2 (size.rlu.v) 

s Vase 0195 1! 

3 133 0194 1 ! FORMAL PARAMETERS: 

; 1% 0195 1! 

; Te 0196 7 ! size The size of the requested item in bytes. 

; 136 0197 1! 

5 «6S 0198 1 ! IMPLICIT INPUTS: 

; 13 0199 1! 

: 0200 1! NONE 

; 140 0201 1! 

> «141 a4 1 ! IMPLICIT OUTPUTS: 

3 y42 0203 1! 

3 6145 0204 1! NONE 

> 144 0205 1! 

s 3465 0206 1 ! ROUTINE VALUE: 

: 146 0207 1! 

3; 147 0208 1! The pointer to the beginning of the user storage for the item. 

> 148 0209 1! 

; 149 0210 1 ! SIDE EFFECTS: 

; 0211 1! 

s- TH O212 1! Calls LIBSGET_VM to allocate heap storage. 

: 152 0213 1! May signal PAS$_ERRDURNEW, error during NEW 

3; 535 0214 1! 

3: 6154 0215 1 !-- 

s 195 0216 1 

; 156 0217 2 BEGIN 

s Vor 0218 2 

s 138 0219 2 LOCAL 

s 159 0220 2 ITEM: REF BLOCK C, BYTE] FIELD (PASSHEAP_FIELDS), 

: 160 Ossi 2 T Address of allocated storage 
; 161 0222 2 ALLOC_ SIZE, ! Size of allocated storage 
: 16¢ 0223 2 MARKED, ! 1 if to be placed on MARKED queue 
: 16 0224 2 STATUS; ! Status return from LIBSGET_V 
; 164 0225 

: 165 0226 BUILTIN 

: 166 0227 INSQUE ; 

: 167 0228 § 

; 168 5534 '¢ % ne 

: 169 0230 2 ! Set MARKED flag depending on whether or not a MARK is in effect. 

; 1 0231 2 ! At the same time, determine ALLOC_SIZE depending on whether or not 
: 171 be 36 ! the item is to be marked. 

: 178 0 !e 

5 OF 0234 
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PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 16-Sep-1984 01:40:07 AX-11 Bliss-32 V4.0-742 P 
1-002 PASSNEUS - Allocate new heap storage item 12-Sep-1984 13389595 PASRTL.SRCIPASH AP .B32;1 ie 
: #174 0235 IF .MARKED_HEAP_QUEUVE [0] NEQ 0 ! Queue not empty? 
. tr $ THEN 
s 176 BEGIN 
; 177 8 MARKED = 1; 
: 178 8 ip re cena = .SIZE + PASSK_HEAP_HDRSIZ + 8; 
: 180 0241 
; 181 0 rk: 
: Ise 024 MARKED = 0; 
: ts psee SLL Os nes = .SIZE + PAS$K_HEAP_HDRSIZ; 
: 185 0346 ; . 
; «6186 024 ‘+ 
: ts OSes § Allocate heap storage for item. 
: 189 0250 2 
; 190 0251 2 STATUS = LIBSGET_VM (ALLOC_SIZE, ITEM); 
: 135 bSe§ 2 i » STATUS 
: 198 0254 ‘ BEGIN 
> 19% 0255 3 SIGNAL_STOP (PAS$_ERRDURNEW,0,.STATUS); 
i 1e ae _ 
: 197 0258 : ; 
; 198 0259 2 '+ 
; 138 psed § Zero-fill header and storage. 
: 201 $562 2 
; 202 0263 3 BEGIN 
s 205 0264 3 LOCAL 
; 204 0265 3 ' Current pointer to item 
: 205 0266 3 - BYTES LEFT; i Remaining size to fill 
: 207 0268 3 BYTES LEFT = .ALLOC_SIZE; 
: 208 0269 3 WHILE” ( BYTES_LEFT GTRU 65535) DO 
: 210 0271 4 PTR = CHSFILL (0, 65535, .PTR); 
4 211 0272 4 BYTES LEFT = .BYTES_LEFT - 65535 
: 218 bere 3 CHSFILL (0, -BYTES_LEFT, .PTR); 
> 215 0276 3 ’ 
: 216 0277 '¢ 
; $15 5344 § Set ITEM to point to beginning of user storage. 
: 219 0280 2 ; 
; 220 0281 2 If MARKED 
s del bse¢ § THEN 
: $56 ogo? ue = , ITEM + PAS$K_HEAP_HDRSIZ + 8 
: 324 0285 ITEM = .ITEM + PASSK_HEAP_HDRSIZ; 
: 226 O5a9 1+ é; 
; $55 BS56 Set appropriate values in header. 
: 209 0990 . 
: 230 0291 ITEM CPAS$L_HEAP_SIZE] = .ALLOC_SIZE; 
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PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 16-Sep-1984 01:40:07 AX-11 Bliss-32 V4.0-742 Page 
1-002 PASSNEWS - Allocate new heap storage item 12286871383 $3589: 0f PASRTL.SRCJPASHEAP.B32;1 ’ 
; 1 029 ITEM CPASS$W_ADDR_CHECK] = .ITEM; ' Low word of item address 
$ ¢ 029 ! for consistency check 
; 0294 
; : 8 3 ia MARK is i ff link this i h 
; : a is in effect, Link this item on the queue. 
3 $3 0 38 I 
: gor 0298 
: 238 0299 IF .MARKED 
: 239 0300 THEN 
: 240 0301 BEGIN 
3 st $308 IF NOT .QUEVE_INITIALIZED 
4 $e 0304 INITIALIZE_QUEUE (); 
; 246 0305 ITEM CPAS$V a MARKED) = 13 ' Note item as marked 
3 245 0306 3 INSQUE (ITEM CPAS$Q_HEAP_QLINK], MARKED_HEAP_QUEUE); ! Insert at head 
> 246 0307 2 END; 
: 247 0308 2 
; 248 0309 2 RETURN .iTEM; ! Return pointer to user storage 
; 2469 0310 2 
; 250 0311 +1 END; ! End of routine PASSNEW2 
-TITLE PASSHEAP NEW, DISPOSE, MARK and RELEASE procedu 
-IDENT \1-002\ 
-PSECT _PASSDATA,NOEXE, PIC,2 
00000 MARKED_HEAP QUEUE : 
00000000 00008 QUEVE_INITIALIZED: 
-LONG 0 3 
-EXTRN PASS$NEW2, PASSDISPOSE2 
“EXTRN PASSMARK2, PASSRELEASE2 
-EXTRN LIBSGET_VM, PAS$_ERRDURNEW 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
01FC 00000 -ENTRY PASSNEW2, Save R2,R3,R4,R5,R6,R7,R8 ; 
58 00000000' EF 9E 00002 MOVAB MARKED_HEAP_QUEUE, R8& F 
5E 08 C2 00009 SUBL2 #8, 3 
68 b 0000C TSTL MARKED_HEAP_QUEUE ; 
0B 1 BR OtE BEQL : 
57 01 DO 0001 MOVL #1, MARKED : 
04 AE 06 AC 10 C1 00013 ADDL3 #16, SIZE, ALLOC_SIZE : 
08 11 00019 BRB 2s 3 
57 D4 0001B 1$: CLRL MARKED : 
04 AE 04 AC 08 C1 0001 ADDL3 #8, SIZE, ALLOC_SIZE : 
5E DD 00023 2$ PUSHL SP 3 
08 AE 9F 000 PUSHAB tot SIZE : 
000000006 00 9 4 0028 CALLS # LTesger_vn ; 
13 E8 O002F BLBS STATUS, 3$ : 
50 DD 00032 PUSHL STATUS ; 
7E D4 00034 CLRL -(SP) : 
00000000G 8F DD Bn8 6 PUSHL #PAS$_ERRDURNEW : 
000000006 00 03 FB 00035C CALLS #3, LYIBSSTOP : 


ae 
1-002 


NEW DISPOSE 
PASS$NEW 


3; Routine Size: 


FFFF 


251 


158 bytes, 


0312 


OGOOF FFF 


00 


00 


F 
F 


0000v 
FC 


1 !<BLF/PAGE> 


- Allocate new heap storage item 


Routine Base: 
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MARK and RELEASE procedures 1b-Se 
14-Se 
56 11 pote 
53 6E DO 00045 3$: 
56 04 AE 00 00048 
8F 56 Di 0004C 4$: 
11 1B 0005 
6E 09 2C 0005 
6 0005C 
56 FFFFOOO1 £6 % 0005D 
E6 11 00064 
6E 00 2C 00066 5$: 
63 00068 
05 57 €9 Bonet 
6E 10 CO QO06F 
03 11 00072 
6E 08 CO 00074 6$: 
52 6E€ DO 00077 7$: 
A2 04 AE DO OO07A 
Ae 2$ BO Q007F 
11 57 €9 00083 
05 08 <A8 €E8 00086 
CF 00 FB 0008A 
A2 04 88 OOO8F 8$: 
68 FO A2 OE 00093 
50 6E DO 00097 9$: 
04 0009A 
50 04 00098 10$: 
04 00090 


PASSCODE + 0000 


4 01:40:07 AX-11 Bliss-32 V4.0-742 
4 03:20:98 PASRTL. RCIPASHEAP.B32¢1 
BRB 10$ 

MOVL ITEM, PTR 

MOVL  ALLOC_SIZE, BYTESSLEFT 

CMPL BYTES-LEFT, #65535 

BLEQ $ 

MOVCS #0, (SP), #0, #65535, (PTR) 
MOVAB 7$5535(R6), BYTES_LEFT 

mMovCS #0, (SP), #0, BYTES_LEFT, (PTR) 
BLBC_ MARKED, 6$ 

ADDL2 #16, ITEM 

BRB 8 

ADDL2 #8, ITEM 

MOVL ITEM, R2 

MOVIL. LOC_SIZE, -8(R2) 

MOVW » 72 R2) 

BLBC MARKED, 9$ 

BLBS QUEUE INITIALIZED, 8$ 

CALLS #0, INITIALIZE_QUEUE 

BISB2 #4. -4(R2) 

INSQUE -16(R2), MARKED_HEAP_QUEUE 
MOVL TEM, RO 

RET 

CLRL = RO 

RET 


Page 
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PASSHEAP NEW tists t MARK and RELEASE procedures 16-Sep-1984 01:40:07 VAX-11 Bliss-32 V4.0-742 Page 
1-002 PAS$SDISPOSE2 = Deallocate heap storage item 14-Sep-1984 12:51:33 CPASRTL.SRCJPASHEAP.B32;1 
; 0313 1 XSBTTL 'PASSDISPOSE2 - Ben) locate heap storage item' 
> 254 0314 1 GLOBAL ROUTINE PASS$DISPOSE2( ! Deallocate heap storage item 
; £ 0315 1 POINTER ! Pointer expression 
> 256 0316 1 ) : NOVALUE = 
: gar 0317 1 
; 258 0318 1 !++ 
H $20 8 J? } FUNCTIONAL DESCRIPTION: 
> 261 0351 1} This procedure implements the Pascal DISPOSE function. It deallocates 
; $06 0358 1! the specified item which is presumed to have been allocated using 
: 03235 1! the NEW function. 
> 264 Ose 1! 
; 265 0325 1 ! CALLING SEQUENCE: 
; 266 0326 1! 
> 267 0327 1! PASSDISPOSE2 (pointer.ra.v) 
; 268 0328 1! 
; 269 0385 1 ! FORMAL PARAMETERS: 
> 270 0330 1! : 
s er 0331 1! pointer The address of the item to dispose. 
3 gre O336 - 3 
s are 0335 1 =! IMPLICIT INPUTS: 
3; 274 0334 1! 
t are 0335 1! NONE 
; gre 0336 1! 
3 art 0337 1 ! IMPLICIT OUTPUTS: 
; 278 0338 1! 
; 279 0339 1! NONE 
; 260 0340 1! 
; 281 0341 1 ! ROUTINE VALUE: 
: 282 bak: 1! 
> 283 0343 1! NONE 
: 284 0344 1! 
; 285 0345 1 ! SIDE EFFECTS: 
; 286 0346 1! 
: eer 0347 1! May call LIBSFREE_VM to deallocate heap srereee- 
; 288 0348 1! May signal PAS$_ERRDURDIS, error during DISPOSE 
; 289 0349 1! 
: 290 0350 1 !-- 
; 291 0351 1 
$ $38 0326 2 BEGIN 
; 0353 2 
> 294 0354 3 LOCAL 
: 295 0355 ITEM: REF BLOCK C, BYTE] FIELD (PASSHEAP_FIELDS), ! Allocated item 
: 296 0356 § STATUS; T Status return from LIBSFREE_VM 
; 297 0357 
: 298 0358 § + ‘ 
; 299 0359 ! Enable an error handler to turn ACCVIOs into PAS$_ERRDURDIS. 
; 300 0360 2 te 
3 $0) 0361 2 
; 4 B06 2 ENABLE DISPOSE_HANDLER; 
; 3 036 
: 304 0364 te ; 
s 305 b3e2 Get actual address of item. 
; 09 03 
3 03 ITEM = .POINTER; 
; 3 03 2 
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NEW bi sr Ost. MARK and RELEASE procedures 1o-500" 13%? 91:20:07 AX-11 LS V4.0-742 Page 9 
PASSDISPOSE2 = Deallocate heap storage item 14-Sep-1984 12:51:33 PASRTL.SRCJPASHEAP.B32;1 (4) | 
0370 1+ 
0371 ! If consistency check word does not match the low word of the item 
8 if ! address, signal an error. 
7 l- 
0374 
0375 IF . ITEM CPASS$W_ADDR_CHECK] NEQ .I1TEM<0,16> 
0376 THEN 
0377 BEGIN : 
0378 SIGNAL_STOP (PAS$_ERRDURDIS,0,0); ! Extra args to allow cross-jumping 
0379 RETURN; 
0380 END; 
O38) 
038 “log 
038% 2 ! If item is a marker, it's an error to try and DISPOSE it. Also if 
Bene § the item has already been disposed, then it's an error. 
0386 
0387 $ IF . ITEM CPAS$V_HEAP_MARKER] OR .ITEM CPAS$V_HEAP_DEALLJ 
0388 ¢ THEN 
0389 BEGIN 
0390 3 SIGNAL_STOP (PAS$_ERRDURDIS,0,0); ! Extra args to allow cross-jumping 
0391 3 RETURN; 
$454 2 END; 
0393 2 
0394 2 + 
Beo2 3 Set the DEALL flag so that it can't be DISPOSEd in the future. 
0397 2 
0398 2 ITEM CPAS$V_HEAP_DEALLJ = 1; 
0399 2 
0400 2 re . : : 
0401 2 ! If item is on the marked queue, just return. : 
Be Os § i We assume a future RELEASE will actually delete it. 
0404 2 
0405 2 IF _. ITEM CPAS$V_HEAP_MARKED] 
0406 2 THEN 
0407 2 RETURN; 
0408 2 
0409 2 ‘+ 
0410 2 ! We know that it's not marked, so call LIBSFREE_VM to free the 
0411 2 ' allocated storage. 
0412 2 !- 
0413 § 
0414 ITEM CPAS$W_ADDR_CHECK]) = 0; 
0415 2 STATUS = LIBSFREE_VM (ITEM CPASSL_HEAP_SIZEJ, ZREFC ITEM CPASS$Q_HEAP_HDR])); 
0416 2 IF NOT .STATUS 
0417 THEN 
0418 BEGIN 
0419 SIGNAL_STOP (PAS$_ERRDURDIS,0,.STATUS); 
bess 3 RETURN; 
9421 END; 
bese 
04 RETURN; 
bese : 
0425 1 END; ! End of routine PAS$DISPOSE2 
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1-002 PASSDISPOSED - Deallocate heap Storage item 1228671 382 3589 398 PASRTL.SRCJPASHEAP.B32; 1 s (4) 
.EXTRN PAS$_ERRDURDIS, LIBSFREE_VM 
000¢ 00000 .ENTRY PASSDISPOSE2, Save R2,R3 : 0314 
SE 04 C2 00002 SUBL2 #4, SP : 
6D 0047 CF DE 00005 MOVAL 5$, (FP) : 0352 
3¢ 04 AC DO O000A MOVL POINTER, ITEM : 0368 
5 FC Ae 9E 000E MOVAB =4(ITEMS, R3 + 0375 
52 02 A3 Bi 0001 CMPW 33s 2(R3), ITEM : 
07 12 90016 BNEQ 1$ : 
03 63 01 £0 0001 BBS #1, (R3), 1$ + 0387 
04 63 £9 0001C BLBC (R3), 2$ : 
7E D4 OOOTF 18: CLRL © (SPS : 0390. 
1D 11 00021 BRB 3$ : | 
63 01 88 00023 2$: BISB2 #1, (R3) : 0398 | 
25 63 0¢ EO 00026 BBS #2, (R3), 4$ + 0405. 
02 A3 B4 O002A CLRW =. 2(R3) + 0414 
6E 72 7E 0002D MOVAQ =(R2), (SP) + 0415 
4004 8F BB 39030 PUSHR #*M<R2,SP ; 
000000006 00 02 FB 0uD34 CALLS #2, LIBSFREE_VM : 
11 50 €8 0003B BLBS STATUS, > 0416 
50 DD O003E PUSHL STATUS + 0419 
7E D4 00040 3$ CLRL -(SP) : 
000000006 8F DD 00042 PUSHL #PAS$_ERRDURDIS ; 
000000006 00 03 FB 00048 CALLS #3, LIB$STOP : 
04 OO04F 4$: RET : 042 
0000 00050 5$: «WORD Save nothing ; 035 
7E D4 00052 CLRL -(SP) ; 
SE DD 00054 PUSHL SP : 
7E 04 AC 7D 00056 MOVQ 4(AP), -(SP) , : 
Oo00v CF 03 FB OO0SA CALLS #3, DISPOSE_HANDLER ; 
04 0005F RET ; 


; Routine Size: 96 bytes, Routine Base: _PAS$CODE + OO9E 


; 366 0426 1 !<BLF/PAGE> 


Se te ee Oe Se Be oe 


Bete Se Se Se Se we 


dD 1 

PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 1p~300-138% 93:20:07 AX=11 Bliss-32 V4.0-742 
1-002 PASS$MARK2 = Mark place on allocated List 14-Sep-1984 12:51:33 PASRTL.SRCJPASHEAP.B32;1 

; 368 0427 1 ZSBTTL ‘PASSMARK2 - Mark place on allocated list’ 
3 6369 0428 1 GLOBAL ROUTINE PASSMARK2( ! Mark place on allocated List 
is 370 0429 1 SIZE ! Item size in bytes 
is Sr) 0430 1 = 
1s e 0431 1 
ree peas 1 S44 

> 374 0435 1 ! FUNCTIONAL DESCRIPTION: 

2: S79 0434 1! ; : 

: 376 0435 1! This procedure implements the Pascal MARK function. it 

- arr 0436 1! allocates new storage, like NEW, but marks it in such a 

; 378 O487 1 | way that a future call to PASSRELEASE2, specifying the 

5 323 0438 1! pointer value given by PASSMARK, will free all storage 

; 3B obe} : } allocated since the call to PAS$MARK. 

: 382 0441 1! NOTE! MARK and RELEASE are not supported as intrinsic _ 

3; 982 0442 1! functions in the VAX-11 Pascal compiler. They are ereyroee 

; 384 04435 1! here porety for compatibility with the VAX=-11 Pascal V1 

5 oH te ' compiler which used MARK and RELEASE in the compiler sources. 

3; 6387 0446 1 ! CALLING SEQUENCE: 

; 388 0447 1! . 

: 389 0448 1! pointer.wa.v = PASS$MARK2 (size.rlu.v) 

s 3990 0449 1! 

;. 0450 1 ! FORMAL PARAMETERS: 

; Be 0451 1! - : 

: 393 0452 1! size The size of the requested item in bytes. 

: 394 0453 1! 

3 0454 1 ! IMPLICIT INPUTS: 

; 2 0455 1! 

s 597 0456 1! MARKED_HEAP_QUEUE 

; 398 0457 1! 

; 399 0458 1 ! IMPLICIT OUTPUTS: 

: 400 0459 1! ‘ 

; 401 0460 1! A marker is created and Linked onto the marked heap queue. 

; 402 0461 1! 

; 403 0462 1 ! ROUTINE VALUE: 

: 404 0465 1! 

: 405 0464 1! The pointer to the marker 

; 406 0465 1! 

; 407 0466 1 ! SIDE EFFECTS: 

; 408 0467 1! 

; 409 0468 1! Calls LIBSGET_VM to allocate heap storage. 

; 410 0469 1! May signal PAS$_ERRDURMAR, error during MARK 

gs 61} 0470 1! 

: 412 0471 1 !-- 

: 413 0472 1 

3 416 0473 2 BEGIN 

; 6419 0474 

> 416 0475 LOCAL 

s 617 0476 ITEM: REF BLOCK C, BYTE] FIELD (PASS$HEAP_FIELDS), : 

: 418 0477 2 T Address of item 

3 6419 0478 2 STATUS; ! Status return from LIBSGET_VM 

3 rs i 0479 § 

; Se! 0480 BUILTIN 

: 422 0481 2 INSQUE; 

3: 4623 0482 2 

3; 424 0485 2 


ES sss sss sess 


| 
| 
| 
| 


ee 
PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 16-Sep-1984 01:40:07 AX-11 Blis iss-32 V4.0-742 Page 12 PA 
1-002 PASS$MARK2 = Mark place on allocated List 14-Sep-1984 12:51:33 PASRTL.SRCJPASHEAP.B32;1 (5) 
>; 425 0484 \+ : 
; 426 0485 i Allocate storage for the marker. : 
; 427 0486 in 3 
: 428 0487 
: 429 pees STA Mt ie LIBSGET_VM (ZREF(.SIZE+PASSK_HEAP_HDRSIZ+8), ITEM); : 
; 430 489 IF NOT .STATUS ; 
: 631 0490 THEN. : 
ss ; 0491 BEGIN : 
: 43 049 ; SIGNAL_STOP (PAS$_ERRDURMAR,O,.STATUS); ‘ 
> 434 049 RETURN 0; : 
; 435 0494 2 END; $ 
; 436 0495 § ; 
3; 437 0496 + : 
: 438 0497 2 ! Zero-fill header and storage. ; 
; 439 0498 2 l- : 
; 440 0499 2 3 
3; 44) 0500 3 BEGIN 3 
3 642 0501 3 LOCAL : 
: 443 0502 3 PTR ! Current pointer to item 3 
> 444 0503 3 BYTES _LEFT; i Remaining size to fill : 
> 645 0504 3 PTR = .ITEM; : 
; 446 0505 3 BYTES_LEFT = .SIZE+PAS$K HERE HDRSIZ+8; : 
; 447 0506 3 WHILE (.BYTES_LEFT GTRU 65535) DO : 
; 648 0507 4 BEGIN ; 
: 449 0508 4 PTR = CHSFILL (0, 65535, .PTR : 
: 450 0509 4 BYTES_LEFT = .BYTES_LEFT - bssis; | F 
; 6451 0510 3 END; é 
; 452 0511 3 CHSFILL (0, .BYTES_LEFT, .PTR); é 
: 453 0512 2 END; 3 
; 454 0513 2 3 
; 455 0514 2 let oe gee : : 
: 4656 0515 2 ! Initialize the item | 3 
3: 457 R218 2 te ; 
; 458 yh gale $ 
; 459 0518 2 ITEM = .ITEM + PASS$K Bear SHORSIZ + 8; . 
; 460 0519 2 ITEM CPASSV _HEAP_MAR RRED) = 3 
; 461 0520 2 ITEM EPASSV-HEAP-MARKERI = 1: | ; 
: 4662 0521 2 ITEM CPAS$L_HEAP_SIZEJ = SIZE + PAS$K HEAP_HDRSIZ + 8; b 
3; 463 0522 2 ITEM CPAS$SWLADDR_CHECK] = .ITEM; ! For consistency check : 
: 464 0523 2 3 
; 465 0524 2 '+ ; 3 
: 466 0525 2 ' Insert it on the queue 3 
3; 467 0526 2 !e ; 
; 468 b2se 2 § 
; 469 0528 2 i NOT .QUEUE_INITIALIZED : 
: 670 0529 2 THEN ‘ 
3; 471 0530 2 INITIALIZE QUEUE (); 
3 $8 O23! § INSQUE (ITEM CPAS$OQ “HEAP -QLINK], MARKED_HEAP_QUEUE) ; 
: 676 o238 2 RETURN .ITEM; !' Return to caller 
3; $75 0534 2 ; 
: 4676 0535 1 END; ' End of routine PASSMARK2 


.EXTRN PAS$_ERRDURMAR 


PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 1 
1-002 PAS$MARK2 = Mark place on allocated List 1 
OOF 000 

5E 08 (3 20909 

04 AE OF 0005 

57 046 Ac 1 C1 00008 

04 AE 57 DO 0000D 

04 AE 9F 00011 

000000006 00 02 FB 00014 

13 50 €8 00018 

50 DD OOOTE 

7E D4 Boose 

00000000G 8F DD 00022 

00000000G 00 9 FB 00028 

4 11 0002F 

53 04 AE DO 00031 

56 57 pO 00035 

OOOOF FFF 8F 56 Di 00038 

11 1B OOO3F 

FFFF 8F 00 6E 00 2C 00041 
63 00048 

56 FFFFOOO1 E6 9E 00049 

E6 11 00050 

56 00 6E 00 2C 00052 
63 00057 

04 AE 10 CO 00058 

52 04 AE 00 0005C 

FC A2 06 88 00060 

FB A2 57 DO 00064 

FE A2 52 BO 00068 

05 00000000" EF €E8 0006C 

QOOO0OV CF 00 FB 00073 

00000000" EF FO A2 OE 00078 

50 04 AE D0 00080 

04 00084 

50 D4 00085 

04 00087 


; Routine Size: 136 bytes, Routine Base: _PASSCODE + OOFE 


; 477 0536 1 !<BLF/PAGE» 


son 


1 
-Se 
“Se 


No 
wow 


Ww 
bad 


= 
bad 


uw 
ad 


4 12 


4 94:80:02 vert Bliss-32 V4.0-742 


3 PASRTL.SRCJPASHEAP.B32; 1 


PASSMARK2, Save R2,R3,R4,R5,R6,R7 


=(SP 
#PAS$_ERRDURMAR 
#3, LIBSSTOP 

ITEM, PTR 

R7, BYTES_LEFT 

BYTES_LEFT, #65535 

#0, (SP), #0, #65535, (PTR) 
-65535(R6), BYTES_LEFT 

#0, (SP), #0, BYTES_LEFT, (PTR) 


#16, ITEM 
ITE 


D, 4$ 
UEUE 
HEAP_QUEUE 


' om 


5 


De ee OT 


RO 


BeBe Se Se Be Se Be Se Se Be Be Be Ge Se Be Ge Se Ge Ge Fe Ge Go Fe Fe Fe Be Fe Be Be Ge Be Fe Be Be Be 


Oooooceceo Coo 
MMIII UU 
WAWNNRNN-— OO 
Vi WOON -O0Mm —-Coo 


Oo 
“ 
Ww 
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1 
PASSHEAP NEW pi sroes. MARK and RELEASE procedures | 18-sep-19 4 93 230:07 AX-11 Pst V4.0-742 Page 14 
1-002 PASSRELEASEO = Free all allocated storage since 14-Sep-1984 12:51:53 PASRTL.SRCJPASHEAP.B32; 1 (6) 
: 479 0537 1 %SBTTL DO SSRELEASE€ - aces all allocated storage since MARK' : 
3; 480 0538 1 GLOBAL ROUTINE PASSRELEASE2( ' Free all allocated storage since MARK 
(3 «6481 0539 1 POINTER: REF VECTOR C, LONG) ! Marked item 
: 48 0540 1 ) : NOVALUE = 
; 48 0541 1 
3 «484 bag 1 t++ 
'; 485 0545 1 ! FUNCTIONAL DESCRIPTION: 
1; 6486 0544 1! 
; 487 0545 1! This procedure implements the Pascal RELEASE function. It deallocates 
$ tee b2¢8 } all storage allocated with NEW since the specified MARK was performed. 
: 490 0548 1! NOTE! MARK and RELEASE are not defined as intrinsic functions by 
; 491 0549 1! the VAX-11 Pascal compiler. 
; 49 0550 1! 
; 49 0551 1 ! CALLING SEQUENCE: 
> 494 0552 1! ; 
>; 495 0553 1! PASSDISPOSE2 (pointer.ra.r) 
: 496 0554 1! 
; 497 0555 1 ! FORMAL PARAMETERS: 
: 498 0556 1! ; ‘ 
; 499 ri B pointer The address of the item allocated by a 
; 500 0558 1! previous call to PASSMARK2. 
; SOT 0559 1! 
;: ao. 0560 1 ! IMPLICIT INPUTS: 
: 3s 0561 1! 
3; 504 0562 1! MARKED_HEAP_QUEUE 
; 505 0563 1! 
; 506 0564 1 ! IMPLICIT OUTPUTS: 
:° Sor 0565 1! 
; 508 0566 1! NONE 
: 509 0567 1! 
; 3 0568 1 ! ROUTINE VALUE: 
oe hb 0569 1! 
3: - 3% 0570 1! NONE 
zs. S13 0571 1! 
; 514 0572 1 ! SIDE EFFECTS: 
3 31S 0573 1! P . 
; 3% 0574 1! Disables and reenables AST delivery. 
oe all Oofo >? Calls LIBSFREE_VM to deallocate heap storage. 
; 38 0576 1! Removes allocated items from the heap ater age gueue. 
; 319 Os77, 1! May signal PAS$_ERRDURREL, error during RELEAS 
; 320 0578 1! 
s Sen 0579 1 !-- 
s Dee 0580 1 
3 Ses 0581 2 BEGIN 
; 524 0£82 2 
s. S29 0583 2 LOCAL 
; 326 0584 2 ITEM: REF BLOCK C, BYTE) FIELD (PASS$HEAP FIELDS), ' Heap marker 
; 44 £444 § CUR_ITEM: REF BLOCK C, BYTE] FIELD (PASSREAP_FIELDS); ! Current item 
3 268 0587 2 BUILTIN 
; 32 0588 2 REMQUE ; 
3. Sar 0589 § 
; 238 0590 + ; 
:. 35 0591 3 ' Get actual address of item. 
; «534 R206 le 
; 333 0593 2 


H 1 
PASSHEAP NEW piptoss MARK and RELEASE procedures 16-Sep-1984 01:40: 07 AX-11 Bliss-32 V4.0-742 
1-002 PAS$RELEASEO = Free ail allocated storage since 14-Sep-1984 12:51:33 PASRTL’S Rei ASHEAP B32; 1 
5 0594 ITEM = .POINTER (0); 
537 0595 
336 $338 ae th int i <4 Lt d it 
; e pointer is zero, it isn't an allocated item. 
540 0598 '- 
$41 0599 2 
54 0600 2 IF .ITEM EQL 0 
54 0601 ¢ THEN 
544 060 BEGIN 
545 060 3 SIGNAL_STOP (PASS$_ERRDURREL); 
546 0604 3 RETURN; 
547 0605 § END; 
548 0606 
549 0607 2 + 
550 0608 2 iif consistency check word doesn't match low word of item 
551 0609 2 ' address, signal an error. 
226 0610 2 ie 
55 0611 2 
554 0612 2 IF . ITEM CPAS$W_ADDR_CHECK] NEQ .ITEM<0,16> 
555 0613 2 THEN 
556 0614 3 BEGIN 
557 0615 3 SIGNAL_STOP (PAS$_ERRDURREL) ; 
558 0616 3 RETURN; 
559 0617 2 END; 
560 0618 2 
561 0619 2 '+ 
562 0620 2 ! If ITEM is in fact not a marker, signal an error. 
563 0621 2 != 
564 0622 2 
565 0623 2 IF NOT .ITEM CPAS$SV_HEAP_MARKER] 
566 0624 2 THEN 
567 0625 3 BEGIN 
568 0626 3 SIGNAL_STOP (PASS$_ERRDURREL); 
569 0627 3 RETURN; 
570 0628 2 END; 
*¢ Bae 0629 2 
572 0630 2 + 
573 0631 2 ! If marker has already been ‘‘deallocated"’ by a previous RELEASE, free 
574 0632 2 i the storage it uses. 
575 0633 2 ie 
576 0634 2 
577 0635 2 IF . ITEM CPAS$V_HEAP_DEALL]J 
578 0636 2 THEN 
579 0637 3 BEGIN 
580 0638 3 LOCAL 
581 0639 3 STATUS; 
582 0640 3 
at poe} ; ITEM CPASS$V_HEAP_MARKER] = 0; Set 2° that it can't be RELEASEd 
$85 0643 3 STATUS = LIBSFREE_VM (ITEM CPASSi_NEAP SIZE], 
586 0644 3 ZREF CITEM m EPRe$a Paize “QLINK))); 
587 0645 3 IF NOT .STATUS 
588 0646 3 THEN 
589 0647 4 BEGIN 
590 0648 4 SIGNAL_STOP (PAS$_ERRDURREL,O,.STATUS); 
591 0649 4 RETURN; 
592 0650 3 END; 


ee ee ee ee ee ee ee ee ee Pe Pe Pe re Pe re Pere re re re re re rere ree Tere rere rere re re rare rere rere rere re re rere Te te re ee Te ee 
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_ PASSHEAP NEW teatist MARK and RELEASE procedures _ 16-Sep-1984 93:20:07 AX-11 Bliss-32 V4.0-742 Page 16 
1-002 PASS$RELEASEO = Free all allocated storage since 14-Sep-1984 12:51:33 PASRTL.SRCJPASHEAP.B32; 1 (6) 

593 0651 END 

594 $626 

595 065 ELSE 

596 0654 

597 0655 BEGIN 

598 0656 ; 

599 0657 LOCAL 

600 0658 3 AST_STATUS; ! Status of AST enable 

601 0659 3 

60 0660 3 i 

60 0661 3 ! Disable AST delivery. 

604 0662 3 le 

605 0665 3 

606 0664 3 AST_STATUS = $SETAST (ENBFLG=0); 

607 0665 3 

60 0666 3 + 

609 0667 3 ' Start ——— items from the tail of the marked heap queue and 

610 0668 3 ! deallocating them until we come to the marker. 

611 0669 3 te 

612 0670 3 

613 0671 3 IF NOT .QUEVE_INITIALIZED 

614 0672 3 

615 0673 3 INITIALIZE_QUEUE (); 

616 0674 3 WHILE 1 DO 

617 0675 4 BEGIN a 

618 0676 4 IF REMQUE (.MARKED_HEAP_QUEUE, CUR_ITEM) ! TRUE if it fails (!) 

619 0677 4 THEN “ 

620 0678 5 BEGIN 

621 0679 5 SIGNAL_STOP (PAS$_ERRDURREL); 

622 0680 5 RETURN; 

623 0681 4 END; 

624 0682 4 CUR_ITEM = .CUR_ITEM + PASSK_HEAP_HDRSIZ + 8; ! Point to data area 

625 0683 4 

626 0684 4 1+ savas 

627 0685 4 ! If this is a marker, but not the one we're releasing to, 

oc8 4] : ! mark it for deallocation. Otherwise, free the item. 

6% +t ; IF .CUR_ITEM CPAS$V_HEAP_MARKER] AND (.CUR_ITEM NEQA .ITEM) 

632 0690 4 CUR_ITEM CPAS$V_HEAP_DEALL] = 1 

633 0691 4 S 

634 0692 5 BEGIN 

635 0693 5 

636 0694 5 LOCAL 

637 0695 5 STATUS; 

638 0696 5 , ; 

639 0697 5 CUR_ITEM CPAS$V_HEAP_DEALL] = 1; ! Set as protection against | 

“ bene 2 ! another attempt to DISPOSE it. 

642 0700 5 STATUS = LIBSFREE_VM (CUR_ITEM rPass, HEAP_SIZE], 

643 0701 5 ZREF(CUR_ITEM CPAS$Q~HEAP_QLINK))); 

644 B08 5 IF NOT .STATUS 

645 0703 5 THEN 

646 0704 6 BEGIN 

647 0705 6 SIGNAL_STOP (PAS$_ERRDURREL,O,.STATUS); 

648 0706 6 RETURN; 

649 0707 5 END; 
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PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 16-Sep-1984 01:40:07 AX-11 Bliss-32 V4.0-742 Pa 17 PA 
ati PASSRELEASEO = Free all allocated storage since 12286 8= 1384 $358 0 PASRTL. SRCIPASHEAP.B32:1 =‘ (6) ” 
; 650 0708 5 : 
: 651 0709 4 END; : 
; 634 0710 4 ; 
; 65 0711 4 IF .CUR_LITEM EQLA .ITEM 
: 654 Org 4 
: 655 0713 4 EXITLOOP; 
; 656 0714 4 
: 657 0715 3 END; 
: 658 0716 
: 659 0717 FY 
; 660 0718 i Reenable ASTs if previously enabled. 
; 661 0719 ie 
; 662 O720 
; 66 0721 IF .AST_STATUS EQL SS$_WASSET 
> 664 O72¢ 3 
> 665 0723 3 SSETAST (ENBFLG=1); 
> 666 0724 3 
: 667 0725 2 END; 
: 668 0726 2 | 
; 669 0727 2 RETURN; 
: 670 0728 2 
; 671 0729 «#1 END; ! End of routine PAS$RELEASE2 
-EXTRN PAS$_ERRDURREL, SYSS$SETAST 
O1FC 00000 .ENTRY PASSRELEASE2, Save R2,R3,R4,R5,R6,R7,RB : 0538 
58 000000006 00 9€E 00002 MOVAB LIBSFREE_VM, R8 ; 
57 000000006 00 9E 00009 MOVAB tIBSst OP; ‘R : 
56 00000000G 8F DO 00010 MOVL #PAS$_ERRDURREL, R6 ; 
$5 000000006 00 9€ 00017 MOVAB SYSS$SETAST, R5 : 
5E 04 C2 OOO1E SUBL2 #4, SP : 
53 04 BC DO 00021 MOVL @POINTER, ITEM > 0594 
40 13 00025 BEQL > 0600 | 
53 FE A3 Bi 00027 CMPW 3s =2 (ITEM), ITEM : 0612 
3A 12 0002B BNEQ ; 
35 FC AB 01 €1 0002D BBC #1, -4(ITEM), 3$ : 0623 
1h Fc AB. «E9 00082 BLBC sg CITEM) 18° 0635, 
FC AB 08 8A 00036 BICB2 -4 (ITEM) : 0641 
6E FO A3 9E OO03A MOVAB “i8ch3), (SP) 3 0644 | 
SE DD O003E : | 
F8 A3 9F 00040 PUSHAB SBCIT > 0643 
68 02 FB 00048 CALLS #2 LBSeRee _vM : 
4A 50 £9 00046 BLBC  STATU > 0645 
04 00049 RET > 0648 
7E D4 OO04A 18 CLRL. = = (SP) ; 0664 | 
65 01 FB 0004C CALLS #1, SYSS$SETAST : 
54 50 DO O004F OVL RO, AST STATUS ; 
05 00000000' EF €E8 00052 BLBS §§ QUEUE INITIALIZED, 2$ > 0671 | 
0000v CF 00 FB 00059 CALLS #0, INITIALIZE QUE : 0673 | 
52 00000000" FF OF 0005 2$ REMQUE a@MARKED_KEAP_QOEUE, CUR_ITEM > 0676 | 
06 1C 0006 BVC 4$ : | 
56 DD 00067 3$ PUSHL  R6 ; 0679 | 
67 01 FB 00069 CALLS #1, LIBSSTOP ; 
04 0006C RET : 0678 | 
52 10 CO 0006D 4$: ADDL2 #16, CUR_ITEM : 0682 | 
| 


4 

PASSHEAP EW, DISPOSE, MARK and RELEASE procedures 16-Sep-1984 7 Ax-11 a -32 v4.0-742 Page 18 

1-062 PASSRELEASED - Free all allorated storage since 127368 7198¢ 9}: 39: 9 PASRTL.SR RCIPASHEAP.B325 1 n (6) | 

0B FC UO 1 €1 0007 BBC #1 (CUR_ITEM), 5$ ; 0688. 

5 2 D1 a075 CMPL CUR. ten ITEM : | 

36 iH 007 BEQL : 

FC A2 1 8 007A BISB2 #1, -4(CUR_ITEM) , 0690 | 
1D 11 QOO7E BRB 7$ : 

FC A2 01 88 00080 5$: BISB2 #1 ao) ks Ya : 0697 

6E FO A2 9E 00084 MOVAB =-16(R2) : ee 
5E DD 00088 PUSHL Pp : 

F8 A2 9F OOOBA PUSHAB -8(CUR_I : 0700, 
68 02 FB 0008D CALLS #2, UR BSTREE _vM : 

OA 50 £8 00090 BLBS STATUS, 7$ : 0702 

50 DD Bo Nae 6$: PUSHL T 3 0705 | 
7E D4 00095 CLRL =(SP) : 
56 DD 00097 PUSHL R6 3 
67 03 FB 00099 CALLS #3, LIBS$STOP : 

04 0009C RET 3 0704 

53 52 D1 0009D 7$: CMPL  CUR_ITEM, ITEM : 0711 
| BC 12 QOOA0 BNEQ : 

09 54 D1 OO0A2 CMPL AST_STATUS, #9 3; 0721 
05 12 paone BNEQ 8$ 2 

01 DD OO0A7 PUSHL #1 3 0723 
65 01 FB OOOA9 CALLS #1, SYSSSETAST Z 

04 OOOAC 8$: RET : 0729 


; Routine Size: 173 bytes, Routine Base: _PASSCODE + 0186 


; 672 0730 1 !<BLF/PAGE> 


1 
PASSHE AP NEW, DISPOSE, MARK and RELEASE procedures 18-Sep-19 4 94:40:07 AX=-11 Bliss-32 V4.0-742 Page 19 PA 
1-002 INI fIALIZE_QUEUE ~ Initialize MARKED_HEAP_QUEUE 14-Sep-1984 12:51:33 PASRTL.SRCJPASHEAP.B32; 1 (7) 
> 674 Q731 1 SSBITL "INITIALIZE_QUEUE = Initialize MARKED_HEAP_QUEUE' : 
; 675 Bf ; 1 ROUTINE INITIALIZE_QUEUE ‘ 
; 67 7 1 : NOVALUE = ; 
; 67 0734 1 : 
; 678 0735 1 !4+ : 
; 679 0736 1 ! FUNCTIONAL DESCRIPTION: 3 
; 680 0737 1! 3 
13 oa) 4 : ! Initializes MARKED_HEAP_QUEUE to be an empty queue. : 
; 68 $726 1 ! CALLING SEQUENCE: : 
3 «684 0741 1! : 
is 685 oreg 1! INITIALIZE_QUEUE () : 
> 686 0745 1! : 
3; 687 0744 1 ! FORMAL PARAMETERS: ; 
; 688 0745 1! : 
; 689 0746 1! NONE : 
; 690 0747 1! F 
; 691 0748 1 ! IMPLICIT INPUTS: : 
; 69 0749 1! F 
; & 0750 1! MARKED_HEAP_QUEUE 3 
3 694 0751 1! QUEUE _INITIALIZED ; 
; 695 O° 26 ie : 
; 696 0755 1 ! IMPLICIT OUTPUTS: : 
; 697 0754 1! : 
; 698 0755 1! MARKED _HEAP_QUEUE $ 
; 699 0756 1! QUEUE _INITIALIZED 3 
; 700 0757 1! : 
; 701 6758 1 ! COMPLETION STATUS: : 
702 0759 1! ; 
703 0760 1! NONE ; 
704 0761 1! : 
705 Bree 1 ! SIDE EFFECTS: : 
796 0763 1! : 
707 0764 1! Makes MARKED_HEAP_QUEUE an empty queue. ; 
708 0765 1! : 
709 0766 1 ! SIGNALLED ERRORS: 3 
710 0767 1! : 
711 0768 1! NONE : 
712 0769 1 !-- : 
713 0770 1 : 
714 0771 2 BEGIN 3 
715 0772 § : 
716 0773 LOCAL ; : 
717 0774 2 AST_STATUS; ! Previous AST enable status : 
718 0775 2 3 
719 0776 § BUILTIN 3 
720 0777 TESTBITCS; 3 
721 0778 3 
$e 0779 '¢ : 
72 0780 ! Disable ASTs. 3 
724 0781 !e 
725 14 
726 078 AST_STATUS = SSETAST (ENBFLG = 0); 
ise 0784 
728 0785 '¢ i i See 
729 0786 : If QUEVE_INITIALIZED is still clear, initialize MARKED_HEAP_QUEUE to 
730 0787 2 ! be an empty queve. Set QUEUVE_INITIALIZED. 
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PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 16-Sep-1984 01:40:07 AX-11 Bliss-32 V4.0-742 Page 20 

1-002 INIFIALIZE QUEUE = Initialize MARES HEAP QUEUE To-Seboton Soregigg | FAXSAT Obes eRe ten %5 52, ge 6 
3 731 788 le : 
ie ¢ ores 3 
ES 0790 IF TESTBITCS (QUEUE_INITIALIZED) : 
ee 0791 THEN : 
; 735 0798 BEGIN ; 
: 736 079 MARKED_HEA AP QUEUE 0] = MARKED_HEAP_QUEUE; ' Set forward Link 5 
: 73? 0794 MARKED_HEAP_QUEUE [1] = .MARKED_HEAP_QUEUE [0]; | Set backward Link ; 
: 738 0795 END; : 
: 739 0796 3 
; 740 0797 '¢ : 
3: 741 0798 ! Reenable ASTs if previously enabled. ' 
> 7% 0799 '- 3 
: 76 0800 : 
; 0801 IF .AST_STATUS EQL SS$_WASSET : 
(> 765 080¢ THEN : 
: 746 080 SSETAST (ENBOLG = 1); : 
; 767 0804 § 3 
: 748 0805 RETURN; : 
> 749 0806 2 3 
: 750 0807 1 END; ! End of routine INITIALIZE_QUEUE : 
| . 
| Py 
000C 00000 INITIALIZE QUEUE : : 
WORD R2,R3 : 0732) : 
53 000000006 00 9€ 00002 MOVAB oyS$s SETAST, R3 ; : 
52 00000000' EF 9€E 00009 MOVAB MARKED_HEAP_QUEUE, R2 : : 
7E D4 00010 CLRL -(SP) : 0783) 3 

63 01 FB 00012 CALLS #1, SYSS$SETAST 3 | 

07 08 A2 00 €2 00015 BSS #0, QUEUE_INITIALIZED, 1$ ; 0790 | 

62 62 YE OOOIA MOVAB MARKED_HEAP_QUEUE, MARKED _HEAP_QUEUE : 0793) 

04 A2 62 DO 0001D MOVL MARKED-HEAP_QUEUE, MARKED~HEAP~QUEUE +4 7 0794 | 

09 50 D1 00021 1$ CMPL AST_STATUS, “#9 : 0801 

05 12 00024 BNEQ : 

01 DD 00026 PUSHL #1 ; 0803 | 

63 01 FB 00028 CALLS #1, SYSSSETAST : | 

04 0002B 2$: RET ; 0807 | 


_; Routine Size: 44 bytes, Routine Base: _PASS$CODE + 0233 
La 7ST 0808 1 
752 0809 1 '<BLF/PAGE> 
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SHANDLER MARK and RELEASE procedures 16-Sep-1984 : 9 


1:40: 07 AX-11 Bliss-32 V 
ANDLER = Error handler for DISPOSE 14- ~8ep-1984 2:51:33 PASRTL.SR RCIP PASHEA 


ZSBITL 'DISPOSE_HANDLER = Error handler for DISPOSE’ 
ROUTINE DISPOSE H HANDLER 


' Signal arguments List 


L_ARGS: REF BLOCK [( err? 
BYTE) ! Mechanism arguments List 


SIGNA 
RE CHANTS WARGS: REF BLOCK 


+ 

FUNCTIONAL DESCRIPTION: 
DISPOSE_HANDLER is a condition handler enepas by DISPOSE. It converts 
zero-level access violations into PAS$ -ERRDURDIS. It is presumed that 
any access violations in DISPOSE are caused by invalid pointers. 

CALLING SEQUENCE: 


ret_status.wlc.v = DISPOSE_HANDLER (signal_args.mz.r, mechanism_args.rz.r) 


! FORMAL PARAMETERS: 


SIGNAL ARGS - The signal arguments List 
MECHANTSM_ARGS = The mechanism arguments List 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_RESIGNAL 
SIDE EFFECTS: 
NONE 
SIGNALLED ERRORS: 
NONE 


BEGIN 


IF .SIGNAL_ARGS CCHF$L_SIG_NAME] EQLU SS$_ACCVIO AND 
. * ME CHANT SM -ARGS CCHFS$L_ACH_DEPTH) EQL 0 


N 
BEGIN 
. " change SS$_ACCVIO to PASS$S_ERRDURDIS. 


SIGNAL_ARGS CCHFSL_SIG_NAME] = — ERRDURDIS; 

SIGNAL-ARGS (12,0,32,0] = 0; ' FRO Argument coun 

SIGNAL_ARGS (16,0,32,0] = 0; ! Erase original Ss -ACCVIO arguments 
SIGNAL-ARGS (20,0,32,0] = 0; 
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- 
. 
N 
m 
oa 
° 
a 
<= 
uw 
=x 
” 
<= 


? RO 


“#le 
NISM_ARGS, R1 


e nothin 
NAL_ARGS 


0), 


ERRDURDIS, 4(RO) 


NANT ZLOB VS 


-WORD 


! End of routine DISPOSE_HANDLER 
MOVL 


0000 00000 DISPOSE _HANDLER: 


GOoooooooeoeo 


Or NOMNOVUTUT 
aa-—-A0— OFf- OMoO 


FV WE OOUu 
-—-<ftowdt ao 


END; 
RETURN SS$_RESIGNAL; 


» MARK and RELEASE procedures 
END; 


HANDLER = Error handler for DISPOSE 


NEW, DISPOSE 
POSE 


DIS 


sss 202000050555... ss = 


1-002 


| PASSHEAP 


Oo 

ovuwred 
oor 
o 
Oo 


AO 000000 


Oo 
wm 


04 


_PASSCODE + 025F 


Routine Base: 


!<BLF /PAGE> 


41 bytes, 


; Routine Size: 


. sesciciacheanlniaiendindaaiadladae tages 
| 
. ¢ 
_ PASSHEAP NEW, DISPOSE, MARK and RELEASE procedures 16-Sep-1984 01:40 9:07 AX-11 Bliss-32 V4.0-742 Page 23 
| 1-002 DISPOSE “HANDLER - Error handler for DISPOSE 1a-Sep- 984 12:51:33 PASRTL.SRCJPASHEAP.B32;1 (9) 

; 819 0874 1 END ! End of module PAS$HEAP 

; 820 0875 1 
821 0876 0 ELUDOM 

~EXTRN LIBSSTOP 

H PSECT SUMMARY 

: Name Bytes Attributes 

: _PASSDATA 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 

; _~PASS$CODE 648 NOVEC;NOWRT, RD; EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

3 Library Statistics 

; ceeecese Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

; _$255$DUA28: CSYSLIBISTARLET.L32;1 9776 8 0 581 00:01. ? 

3 ~$255$DUA28:CPASRTL. OBJ JPASLIB.L32:1 427 10 2 33 00:00.4 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD,INITIAL,OPTIMIZE) /NOTRACE/LIS=L1S$:PASHEAP/OBJ=OBJ$:PASHEAP MSRC$:PASHEAP/UPDATE=(ENH$:PASHEAP) 


; Size: 
: Run Time: 


; Elapsed Time: 


648 code + 12 data bytes 


; Lexemes/CPU-Min: 13306 


. pom Used: 
a 


; Compi 


: Lines/CPU Min: 


92 pages 
tion Complete 
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ENT CORPORATION 
ND PROPRIETARY | 
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